|
100
|
How can I show the item in italics
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voitem
Get ComAdd of hoItems "Item" Nothing Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComItalic of hoitem to True
Send Destroy to hoitem
Get ComAdd of hoItems "<i>Item</i>" Nothing Nothing to Nothing
Variant voitem1
Get ComAdd of hoItems "" Nothing Nothing to voitem1
Handle hoitem1
Get Create (RefClass(cComitem)) to hoitem1
Set pvComObject of hoitem1 to voitem1
Set ComToString of hoitem1 to "Item[itl]"
Send Destroy to hoitem1
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
99
|
How can I show the item in bold
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voitem
Get ComAdd of hoItems "Item" Nothing Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComBold of hoitem to True
Send Destroy to hoitem
Get ComAdd of hoItems "<b>Item</b>" Nothing Nothing to Nothing
Variant voitem1
Get ComAdd of hoItems "" Nothing Nothing to voitem1
Handle hoitem1
Get Create (RefClass(cComitem)) to hoitem1
Set pvComObject of hoitem1 to voitem1
Set ComToString of hoitem1 to "Item[bld]"
Send Destroy to hoitem1
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
98
|
How can I show the item as disabled but still be able to select or use it
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voitem
Get ComAdd of hoItems "Item" Nothing Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComShowAsDisabled of hoitem to True
Send Destroy to hoitem
Variant voitem1
Get ComAdd of hoItems "" Nothing Nothing to voitem1
Handle hoitem1
Get Create (RefClass(cComitem)) to hoitem1
Set pvComObject of hoitem1 to voitem1
Set ComToString of hoitem1 to "Item[showdis=1]"
Send Destroy to hoitem1
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
97
|
How can I enable or disable an item
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voitem
Get ComAdd of hoItems "Item" Nothing Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComEnabled of hoitem to False
Send Destroy to hoitem
Variant voitem1
Get ComAdd of hoItems "" Nothing Nothing to voitem1
Handle hoitem1
Get Create (RefClass(cComitem)) to hoitem1
Set pvComObject of hoitem1 to voitem1
Set ComToString of hoitem1 to "Item[dis]"
Send Destroy to hoitem1
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
96
|
How can I add a separator item
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voitem
Get ComAdd of hoItems "Item" Nothing Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComCaptionWidth of hoitem to 128
Send Destroy to hoitem
Get ComAdd of hoItems "<font ;6>separator" 1 Nothing to Nothing
Variant voitem1
Get ComAdd of hoItems "Item" Nothing Nothing to voitem1
Handle hoitem1
Get Create (RefClass(cComitem)) to hoitem1
Set pvComObject of hoitem1 to voitem1
Set ComCaptionWidth of hoitem1 to 128
Send Destroy to hoitem1
Variant voitem2
Get ComAdd of hoItems "" Nothing Nothing to voitem2
Handle hoitem2
Get Create (RefClass(cComitem)) to hoitem2
Set pvComObject of hoitem2 to voitem2
Set ComToString of hoitem2 to "<font ;6>separator[sep]"
Send Destroy to hoitem2
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
95
|
How can I change the item's foreground color
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voitem
Get ComAdd of hoItems "Item" Nothing Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComForeColor of hoitem to (RGB(255,0,0))
Send Destroy to hoitem
Get ComAdd of hoItems "<fgcolor FF0000>Item" Nothing Nothing to Nothing
Variant voitem1
Get ComAdd of hoItems "" Nothing Nothing to voitem1
Handle hoitem1
Get Create (RefClass(cComitem)) to hoitem1
Set pvComObject of hoitem1 to voitem1
Set ComToString of hoitem1 to "Item[fg=RGB(255,0,0)]"
Send Destroy to hoitem1
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
94
|
How can I change the item's background/backcolor, when the item is selected/checked (radio-buttons)
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voitem
Get ComAdd of hoItems "" 2 Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComGroupPopup of hoitem to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
Variant voItems1
Get ComItems of hoitem to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Variant voitem1
Get ComAdd of hoItems1 "Radio 1" Nothing Nothing to voitem1
Handle hoitem1
Get Create (RefClass(cComitem)) to hoitem1
Set pvComObject of hoitem1 to voitem1
Set ComHotBackColor of hoitem1 to (RGB(255,255,255))
Set ComSelBackColor of hoitem1 to (RGB(255,0,0))
Set ComSelHotBackColor of hoitem1 to (RGB(255,0,0))
Set ComShowCheckedAsSelected of hoitem1 to OLEexDisplayItemHighlight
Set ComRadio of hoitem1 to True
Set ComRadioGroup of hoitem1 to 100
Set ComChecked of hoitem1 to True
Send Destroy to hoitem1
Variant voitem2
Get ComAdd of hoItems1 "Radio 2" Nothing Nothing to voitem2
Handle hoitem2
Get Create (RefClass(cComitem)) to hoitem2
Set pvComObject of hoitem2 to voitem2
Set ComHotBackColor of hoitem2 to (RGB(255,255,255))
Set ComSelBackColor of hoitem2 to (RGB(255,0,0))
Set ComSelHotBackColor of hoitem2 to (RGB(255,0,0))
Set ComShowCheckedAsSelected of hoitem2 to OLEexDisplayItemHighlight
Set ComRadio of hoitem2 to True
Set ComRadioGroup of hoitem2 to 100
Send Destroy to hoitem2
Variant voitem3
Get ComAdd of hoItems1 "" Nothing Nothing to voitem3
Handle hoitem3
Get Create (RefClass(cComitem)) to hoitem3
Set pvComObject of hoitem3 to voitem3
Set ComToString of hoitem3 to "Radio 3[typ=2][show=1][grp=100][bghot=RGB(255,255,255)][bgsel=RGB(255,0,0)][bgselhot=RGB(255,0,0)]"
Send Destroy to hoitem3
Send Destroy to hoItems1
Send Destroy to hoitem
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
93
|
How can I change the item's background/backcolor, when the item is selected/checked (check-box)
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voitem
Get ComAdd of hoItems "Check 1" Nothing Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComHotBackColor of hoitem to (RGB(255,255,255))
Set ComSelBackColor of hoitem to (RGB(255,0,0))
Set ComSelHotBackColor of hoitem to (RGB(255,0,0))
Set ComShowCheckedAsSelected of hoitem to OLEexDisplayItemHighlight
Set ComChecked of hoitem to True
Set ComCheck of hoitem to True
Send Destroy to hoitem
Variant voitem1
Get ComAdd of hoItems "" Nothing Nothing to voitem1
Handle hoitem1
Get Create (RefClass(cComitem)) to hoitem1
Set pvComObject of hoitem1 to voitem1
Set ComToString of hoitem1 to "Check 2[typ=1][chk=0][show=1][bghot=RGB(255,255,255)][bgsel=RGB(255,0,0)][bgselhot=RGB(255,0,0)]"
Send Destroy to hoitem1
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
92
|
How can I prevent showing the border for selected/highlight/hot items
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Set ComBackground OLEexMenuSelBorderColor to (RGB(255,255,255))
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAdd of hoItems "Item" Nothing Nothing to Nothing
Get ComAdd of hoItems "Item" Nothing Nothing to Nothing
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
91
|
How can I change the item's background/backcolor, when the cursor hovers it (hot)
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voitem
Get ComAdd of hoItems "Item" Nothing Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComHotBackColor of hoitem to (RGB(255,0,0))
Send Destroy to hoitem
Variant voitem1
Get ComAdd of hoItems "" Nothing Nothing to voitem1
Handle hoitem1
Get Create (RefClass(cComitem)) to hoitem1
Set pvComObject of hoitem1 to voitem1
Set ComToString of hoitem1 to "Item[bghot=RGB(255,0,0)]"
Send Destroy to hoitem1
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
90
|
How can I change the item's background/backcolor
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voitem
Get ComAdd of hoItems "Item" Nothing Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComBackColor of hoitem to (RGB(255,0,0))
Send Destroy to hoitem
Variant voitem1
Get ComAdd of hoItems "Item" Nothing Nothing to voitem1
Handle hoitem1
Get Create (RefClass(cComitem)) to hoitem1
Set pvComObject of hoitem1 to voitem1
Set ComBackColor of hoitem1 to |CI$1000000
Send Destroy to hoitem1
Variant voitem2
Get ComAdd of hoItems "" Nothing Nothing to voitem2
Handle hoitem2
Get Create (RefClass(cComitem)) to hoitem2
Set pvComObject of hoitem2 to voitem2
Set ComToString of hoitem2 to "Item[bg=RGB(255,0,0)]"
Send Destroy to hoitem2
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
89
|
How can I specify/assign the item's identifier
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Set ComDebug to True
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAdd of hoItems "ID 1" 0 1000 to Nothing
Variant voitem
Get ComAdd of hoItems "ID 2" Nothing Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComID of hoitem to 1001
Send Destroy to hoitem
Variant voitem1
Get ComAdd of hoItems "" Nothing Nothing to voitem1
Handle hoitem1
Get Create (RefClass(cComitem)) to hoitem1
Set pvComObject of hoitem1 to voitem1
Set ComToString of hoitem1 to "ID 3[id=1002]"
Send Destroy to hoitem1
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
88
|
How can I show a horizontal separator/line between groups (method 3,EBN color)
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voitem
Get ComAdd of hoItems "" 2 Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComGroupPopup of hoitem to (OLEexGroupPopupVertical + OLEexNoGroupPopupFrame + OLEexGroupPopup)
Variant voItems1
Get ComItems of hoitem to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Variant voitem1
Get ComAdd of hoItems1 "" Nothing Nothing to voitem1
Handle hoitem1
Get Create (RefClass(cComitem)) to hoitem1
Set pvComObject of hoitem1 to voitem1
Set ComAllowEdit of hoitem1 to OLEexItemEditSlider
Set ComEditBorder of hoitem1 to OLEexEditBorderNone
Set ComEditWidth of hoitem1 to -128
Set ComEditValue of hoitem1 to 25
Send Destroy to hoitem1
Variant voitem2
Get ComAdd of hoItems1 "" Nothing Nothing to voitem2
Handle hoitem2
Get Create (RefClass(cComitem)) to hoitem2
Set pvComObject of hoitem2 to voitem2
Set ComEnabled of hoitem2 to False
Set ComBackColor of hoitem2 to |CI$1000000
Set ComItemHeight of hoitem2 to 8
Set ComCaptionWidth of hoitem2 to 128
Send Destroy to hoitem2
Variant voitem3
Get ComAdd of hoItems1 "" Nothing Nothing to voitem3
Handle hoitem3
Get Create (RefClass(cComitem)) to hoitem3
Set pvComObject of hoitem3 to voitem3
Set ComAllowEdit of hoitem3 to OLEexItemEditSlider
Set ComEditBorder of hoitem3 to OLEexEditBorderNone
Set ComEditWidth of hoitem3 to -128
Set ComEditValue of hoitem3 to 25
Send Destroy to hoitem3
Send Destroy to hoItems1
Send Destroy to hoitem
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
87
|
How can I show a horizontal separator/line between groups (method 2,solid color)
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voitem
Get ComAdd of hoItems "" 2 Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComGroupPopup of hoitem to (OLEexGroupPopupVertical + OLEexNoGroupPopupFrame + OLEexGroupPopup)
Variant voItems1
Get ComItems of hoitem to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Variant voitem1
Get ComAdd of hoItems1 "" Nothing Nothing to voitem1
Handle hoitem1
Get Create (RefClass(cComitem)) to hoitem1
Set pvComObject of hoitem1 to voitem1
Set ComAllowEdit of hoitem1 to OLEexItemEditSlider
Set ComEditBorder of hoitem1 to OLEexEditBorderNone
Set ComEditWidth of hoitem1 to -128
Set ComEditValue of hoitem1 to 25
Send Destroy to hoitem1
Variant voitem2
Get ComAdd of hoItems1 "" Nothing Nothing to voitem2
Handle hoitem2
Get Create (RefClass(cComitem)) to hoitem2
Set pvComObject of hoitem2 to voitem2
Set ComEnabled of hoitem2 to False
Set ComBackColor of hoitem2 to (RGB(128,128,128))
Set ComItemHeight of hoitem2 to 8
Set ComCaptionWidth of hoitem2 to 128
Send Destroy to hoitem2
Variant voitem3
Get ComAdd of hoItems1 "" Nothing Nothing to voitem3
Handle hoitem3
Get Create (RefClass(cComitem)) to hoitem3
Set pvComObject of hoitem3 to voitem3
Set ComAllowEdit of hoitem3 to OLEexItemEditSlider
Set ComEditBorder of hoitem3 to OLEexEditBorderNone
Set ComEditWidth of hoitem3 to -128
Set ComEditValue of hoitem3 to 25
Send Destroy to hoitem3
Send Destroy to hoItems1
Send Destroy to hoitem
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
86
|
How can I show a horizontal separator/line between groups (method 1,pattern)
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voitem
Get ComAdd of hoItems "" 2 Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComGroupPopup of hoitem to (OLEexGroupPopupVertical + OLEexNoGroupPopupFrame + OLEexGroupPopup)
Variant voItems1
Get ComItems of hoitem to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Variant voitem1
Get ComAdd of hoItems1 "" Nothing Nothing to voitem1
Handle hoitem1
Get Create (RefClass(cComitem)) to hoitem1
Set pvComObject of hoitem1 to voitem1
Set ComAllowEdit of hoitem1 to OLEexItemEditSlider
Set ComEditBorder of hoitem1 to OLEexEditBorderNone
Set ComEditWidth of hoitem1 to -128
Set ComEditValue of hoitem1 to 25
Send Destroy to hoitem1
Variant voitem2
Get ComAdd of hoItems1 "" 2 Nothing to voitem2
Handle hoitem2
Get Create (RefClass(cComitem)) to hoitem2
Set pvComObject of hoitem2 to voitem2
Set ComGroupPopup of hoitem2 to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
Variant voItems2
Get ComItems of hoitem2 to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Variant voitem3
Get ComAdd of hoItems2 "" Nothing Nothing to voitem3
Handle hoitem3
Get Create (RefClass(cComitem)) to hoitem3
Set pvComObject of hoitem3 to voitem3
Set ComEnabled of hoitem3 to False
Set ComItemHeight of hoitem3 to 8
Set ComCaptionWidth of hoitem3 to 128
Send Destroy to hoitem3
Set ComBackgroundExt of hoItems2 to "none[(0,50%-1,100%,2),pattern=0x006,patterncolor=RGB(128,128,128)]"
Send Destroy to hoItems2
Send Destroy to hoitem2
Variant voitem4
Get ComAdd of hoItems1 "" Nothing Nothing to voitem4
Handle hoitem4
Get Create (RefClass(cComitem)) to hoitem4
Set pvComObject of hoitem4 to voitem4
Set ComAllowEdit of hoitem4 to OLEexItemEditSlider
Set ComEditBorder of hoitem4 to OLEexEditBorderNone
Set ComEditWidth of hoitem4 to -128
Set ComEditValue of hoitem4 to 25
Send Destroy to hoitem4
Send Destroy to hoItems1
Send Destroy to hoitem
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
85
|
How can I show a vertical separator/line between groups (method 3,EBN color)
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voitem
Get ComAdd of hoItems "" 2 Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComGroupPopup of hoitem to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
Variant voItems1
Get ComItems of hoitem to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Variant voitem1
Get ComAdd of hoItems1 "" Nothing Nothing to voitem1
Handle hoitem1
Get Create (RefClass(cComitem)) to hoitem1
Set pvComObject of hoitem1 to voitem1
Set ComItemHeight of hoitem1 to 128
Set ComAllowEdit of hoitem1 to (OLEexItemEditVertical + OLEexItemEditSlider)
Set ComEditBorder of hoitem1 to OLEexEditBorderNone
Set ComEditWidth of hoitem1 to 32
Set ComEditValue of hoitem1 to 25
Send Destroy to hoitem1
Variant voitem2
Get ComAdd of hoItems1 "" Nothing Nothing to voitem2
Handle hoitem2
Get Create (RefClass(cComitem)) to hoitem2
Set pvComObject of hoitem2 to voitem2
Set ComEnabled of hoitem2 to False
Set ComBackColor of hoitem2 to |CI$1000000
Set ComItemHeight of hoitem2 to 96
Set ComCaptionWidth of hoitem2 to 8
Send Destroy to hoitem2
Variant voitem3
Get ComAdd of hoItems1 "" Nothing Nothing to voitem3
Handle hoitem3
Get Create (RefClass(cComitem)) to hoitem3
Set pvComObject of hoitem3 to voitem3
Set ComItemHeight of hoitem3 to 128
Set ComAllowEdit of hoitem3 to (OLEexItemEditVertical + OLEexItemEditSlider)
Set ComEditBorder of hoitem3 to OLEexEditBorderNone
Set ComEditWidth of hoitem3 to 32
Set ComEditValue of hoitem3 to 25
Send Destroy to hoitem3
Send Destroy to hoItems1
Send Destroy to hoitem
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
84
|
How can I show a vertical separator/line between groups (method 2,solid color)
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voitem
Get ComAdd of hoItems "" 2 Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComGroupPopup of hoitem to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
Variant voItems1
Get ComItems of hoitem to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Variant voitem1
Get ComAdd of hoItems1 "" Nothing Nothing to voitem1
Handle hoitem1
Get Create (RefClass(cComitem)) to hoitem1
Set pvComObject of hoitem1 to voitem1
Set ComItemHeight of hoitem1 to 128
Set ComAllowEdit of hoitem1 to (OLEexItemEditVertical + OLEexItemEditSlider)
Set ComEditBorder of hoitem1 to OLEexEditBorderNone
Set ComEditWidth of hoitem1 to 32
Set ComEditValue of hoitem1 to 25
Send Destroy to hoitem1
Variant voitem2
Get ComAdd of hoItems1 "" Nothing Nothing to voitem2
Handle hoitem2
Get Create (RefClass(cComitem)) to hoitem2
Set pvComObject of hoitem2 to voitem2
Set ComEnabled of hoitem2 to False
Set ComBackColor of hoitem2 to (RGB(128,128,128))
Set ComItemHeight of hoitem2 to 96
Set ComCaptionWidth of hoitem2 to 8
Send Destroy to hoitem2
Variant voitem3
Get ComAdd of hoItems1 "" Nothing Nothing to voitem3
Handle hoitem3
Get Create (RefClass(cComitem)) to hoitem3
Set pvComObject of hoitem3 to voitem3
Set ComItemHeight of hoitem3 to 128
Set ComAllowEdit of hoitem3 to (OLEexItemEditVertical + OLEexItemEditSlider)
Set ComEditBorder of hoitem3 to OLEexEditBorderNone
Set ComEditWidth of hoitem3 to 32
Set ComEditValue of hoitem3 to 25
Send Destroy to hoitem3
Send Destroy to hoItems1
Send Destroy to hoitem
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
83
|
How can I show a vertical separator/line between groups (method 1,pattern)
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voitem
Get ComAdd of hoItems "" 2 Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComGroupPopup of hoitem to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
Variant voItems1
Get ComItems of hoitem to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Variant voitem1
Get ComAdd of hoItems1 "" Nothing Nothing to voitem1
Handle hoitem1
Get Create (RefClass(cComitem)) to hoitem1
Set pvComObject of hoitem1 to voitem1
Set ComItemHeight of hoitem1 to 128
Set ComAllowEdit of hoitem1 to (OLEexItemEditVertical + OLEexItemEditSlider)
Set ComEditBorder of hoitem1 to OLEexEditBorderNone
Set ComEditWidth of hoitem1 to 32
Set ComEditValue of hoitem1 to 25
Send Destroy to hoitem1
Variant voitem2
Get ComAdd of hoItems1 "" 2 Nothing to voitem2
Handle hoitem2
Get Create (RefClass(cComitem)) to hoitem2
Set pvComObject of hoitem2 to voitem2
Set ComGroupPopup of hoitem2 to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
Variant voItems2
Get ComItems of hoitem2 to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Variant voitem3
Get ComAdd of hoItems2 "" Nothing Nothing to voitem3
Handle hoitem3
Get Create (RefClass(cComitem)) to hoitem3
Set pvComObject of hoitem3 to voitem3
Set ComEnabled of hoitem3 to False
Set ComItemHeight of hoitem3 to 96
Set ComCaptionWidth of hoitem3 to 8
Send Destroy to hoitem3
Set ComBackgroundExt of hoItems2 to "none[(50%-1,0,2,100%),pattern=6,patterncolor=RGB(128,128,128)]"
Send Destroy to hoItems2
Send Destroy to hoitem2
Variant voitem4
Get ComAdd of hoItems1 "" Nothing Nothing to voitem4
Handle hoitem4
Get Create (RefClass(cComitem)) to hoitem4
Set pvComObject of hoitem4 to voitem4
Set ComItemHeight of hoitem4 to 128
Set ComAllowEdit of hoitem4 to (OLEexItemEditVertical + OLEexItemEditSlider)
Set ComEditBorder of hoitem4 to OLEexEditBorderNone
Set ComEditWidth of hoitem4 to 32
Set ComEditValue of hoitem4 to 25
Send Destroy to hoitem4
Send Destroy to hoItems1
Send Destroy to hoitem
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
82
|
How can I show a pattern on the items
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voitem
Get ComAdd of hoItems "" 2 Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComGroupPopup of hoitem to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
Variant voItems1
Get ComItems of hoitem to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Get ComAdd of hoItems1 "Item 1" Nothing Nothing to Nothing
Get ComAdd of hoItems1 "Item 2" Nothing Nothing to Nothing
Get ComAdd of hoItems1 "Item 3" Nothing Nothing to Nothing
Send Destroy to hoItems1
Send Destroy to hoitem
Set ComBackColor of hoItems to (RGB(255,255,255))
Set ComPadding of hoItems to "2,2,2,12"
Set ComBackgroundExt of hoItems to "root[pattern=0x006,patterncolor=RGB(128,128,128),frame=RGB(128,128,128)](bottom[2],bottom[12,text=`<font ;6><fgcolor 808080><off -2> clipboard </off></font></fgcolor>`,align=0x21])"
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
81
|
How can I show a thick frame arround the items
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voitem
Get ComAdd of hoItems "" 2 Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComGroupPopup of hoitem to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
Variant voItems1
Get ComItems of hoitem to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Get ComAdd of hoItems1 "Item 1" Nothing Nothing to Nothing
Get ComAdd of hoItems1 "Item 2" Nothing Nothing to Nothing
Get ComAdd of hoItems1 "Item 3" Nothing Nothing to Nothing
Send Destroy to hoItems1
Send Destroy to hoitem
Set ComBackColor of hoItems to (RGB(255,255,255))
Set ComPadding of hoItems to "2,2,2,12"
Set ComBackgroundExt of hoItems to "root[frame=RGB(128,128,128)](bottom[2],bottom[12,text=`<font ;6><fgcolor 808080><off -2> clipboard </off></font></fgcolor>`,align=0x21])"
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
80
|
How can I add some additional icons on the background
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voitem
Get ComAdd of hoItems "" 2 Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComGroupPopup of hoitem to OLEexGroupPopup
Variant voItems1
Get ComItems of hoitem to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Get ComAdd of hoItems1 "Item 1" Nothing Nothing to Nothing
Get ComAdd of hoItems1 "Item 2" Nothing Nothing to Nothing
Get ComAdd of hoItems1 "Item 3" Nothing Nothing to Nothing
Send Destroy to hoItems1
Send Destroy to hoitem
Set ComBackColor of hoItems to (RGB(255,255,255))
Set ComPadding of hoItems to "0,0,0,16"
Set ComBackgroundExt of hoItems to "root[text=`<img>2</img><font ;6><fgcolor 808080><off -2> clipboard </off></font></fgcolor><img>2</img>`,align=0x21]"
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
79
|
How can I add some additional text on the background
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voitem
Get ComAdd of hoItems "" 2 Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComGroupPopup of hoitem to OLEexGroupPopup
Variant voItems1
Get ComItems of hoitem to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Get ComAdd of hoItems1 "Item 1" Nothing Nothing to Nothing
Get ComAdd of hoItems1 "Item 2" Nothing Nothing to Nothing
Get ComAdd of hoItems1 "Item 3" Nothing Nothing to Nothing
Send Destroy to hoItems1
Send Destroy to hoitem
Set ComBackColor of hoItems to (RGB(255,255,255))
Set ComPadding of hoItems to "0,0,0,8"
Set ComBackgroundExt of hoItems to "root[text=`<font ;6><fgcolor 808080>clipboard`,align=0x21]"
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
78
|
How can I assign a tooltip to an item (method 2)
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Set ComToString to "ToolTip[id=10][ttp=This is a bit of text that should be shown when cursor hovers the item]"
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
77
|
How can I assign a tooltip to an item (method 1)
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voitem
Get ComAdd of hoItems "ToolTip" Nothing Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComTooltip of hoitem to "This is a bit of text that should be shown when cursor hovers the item"
Send Destroy to hoitem
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
76
|
How can I assign a spin field to the item (method 2)
// Occurs when the user alters the item's text box field.
Procedure OnComEditChange Variant llItm
Forward Send OnComEditChange llItm
Showln llItm
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voitem
Get ComAdd of hoItems "Spin" Nothing Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComAllowEdit of hoitem to OLEexItemEditSpin
Set ComEditWidth of hoitem to 16
Set ComEditValue of hoitem to 15
Set ComEditBorder of hoitem to OLEexEditBorderNone
Set ComEditOption of hoitem OLEexEditMaxValue to 1000
Send Destroy to hoitem
Variant voitem1
Get ComAdd of hoItems "Edit-Spin" Nothing Nothing to voitem1
Handle hoitem1
Get Create (RefClass(cComitem)) to hoitem1
Set pvComObject of hoitem1 to voitem1
Set ComAllowEdit of hoitem1 to (OLEexItemEditSpin + OLEexItemEditText)
Set ComEditWidth of hoitem1 to -128
Set ComEditValue of hoitem1 to 15
Set ComEditOption of hoitem1 OLEexEditMaxValue to 1000
Send Destroy to hoitem1
Variant voitem2
Get ComAdd of hoItems "Splider-Spin" Nothing Nothing to voitem2
Handle hoitem2
Get Create (RefClass(cComitem)) to hoitem2
Set pvComObject of hoitem2 to voitem2
Set ComAllowEdit of hoitem2 to (OLEexItemEditSpin + OLEexItemEditSlider)
Set ComEditWidth of hoitem2 to -128
Set ComEditValue of hoitem2 to 25
Set ComEditBorder of hoitem2 to OLEexEditBorderNone
Send Destroy to hoitem2
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
75
|
How can I assign a spin field to the item (method 1)
// Occurs when the user alters the item's text box field.
Procedure OnComEditChange Variant llItm
Forward Send OnComEditChange llItm
Showln llItm
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Set ComToString to "Spin[id=10][edittype=0x0200][edit=15][border=0][max=1000][editwidth=16],Edit-Spin[id=20][edittype=0x0201][edit=15][max=1000][editwidth=-128],Splider-Spin[id=30][edittype=0x0203][edit=25][border=0][editwidth=-128]"
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
74
|
How can I add a vertical slider (method 2)
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Set ComToString to "Vertical[id=10][edittype=0x0403][edit=25][border=0][height=128]"
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
73
|
How can I add a vertical slider (method 1)
// Occurs when the user alters the item's text box field.
Procedure OnComEditChange Variant llItm
Forward Send OnComEditChange llItm
Showln llItm
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voitem
Get ComAdd of hoItems "Vertical" Nothing Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComItemHeight of hoitem to 128
Set ComAllowEdit of hoitem to (OLEexItemEditVertical + OLEexItemEditSlider)
Set ComEditBorder of hoitem to OLEexEditBorderNone
Set ComEditWidth of hoitem to 32
Set ComEditValue of hoitem to 25
Send Destroy to hoitem
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
72
|
How can I disable an editor (method 2)
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Set ComToString to "Disabled[id=10][dis][edittype=0x01][edit=text-box][editwidth=-128]"
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
71
|
How can I disable an editor (method 1)
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voitem
Get ComAdd of hoItems "Disabled" Nothing Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComAllowEdit of hoitem to OLEexItemEditText
Set ComEditWidth of hoitem to -128
Set ComEditValue of hoitem to "text-box"
Set ComEnabled of hoitem to False
Send Destroy to hoitem
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
70
|
How can I lock an editor (method 2)
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Set ComToString to "Locked[id=10][edittype=0x0101][edit=disabled text-box][editwidth=-128]"
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
69
|
How can I lock an editor (method 1)
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voitem
Get ComAdd of hoItems "Locked" Nothing Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComAllowEdit of hoitem to (OLEexItemEditReadOnly + OLEexItemEditText)
Set ComEditWidth of hoitem to -128
Set ComEditValue of hoitem to "disabled text-box"
Send Destroy to hoitem
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
68
|
How can I assign a font field to the item (method 2)
// Occurs when the user alters the item's text box field.
Procedure OnComEditChange Variant llItm
Forward Send OnComEditChange llItm
Showln llItm
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voitem
Get ComAdd of hoItems "Font" Nothing Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComAllowEdit of hoitem to OLEexItemEditFont
Set ComEditWidth of hoitem to -128
Set ComEditValue of hoitem to "Tahoma"
Send Destroy to hoitem
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
67
|
How can I assign a font field to the item (method 1)
// Occurs when the user alters the item's text box field.
Procedure OnComEditChange Variant llItm
Forward Send OnComEditChange llItm
Showln llItm
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Set ComToString to "Font[id=10][edittype=0x07][edit=Tahoma][editwidth=-128]"
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
66
|
How can I assign a color field to the item (method 2)
// Occurs when the user alters the item's text box field.
Procedure OnComEditChange Variant llItm
Forward Send OnComEditChange llItm
Showln llItm
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voitem
Get ComAdd of hoItems "Color" Nothing Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComAllowEdit of hoitem to OLEexItemEditColor
Set ComEditBorder of hoitem to OLEexEditBorderNone
Set ComEditWidth of hoitem to -128
Set ComEditValue of hoitem to 255
Send Destroy to hoitem
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
65
|
How can I assign a color field to the item (method 1)
// Occurs when the user alters the item's text box field.
Procedure OnComEditChange Variant llItm
Forward Send OnComEditChange llItm
Showln llItm
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Set ComToString to "Color[id=10][edittype=0x06][edit=#FF0000][border=0][editwidth=-128]"
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
64
|
How can I assign a scrollbar field to the item (method 2)
// Occurs when the user alters the item's text box field.
Procedure OnComEditChange Variant llItm
Forward Send OnComEditChange llItm
Showln llItm
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voitem
Get ComAdd of hoItems "ScrollBar" Nothing Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComAllowEdit of hoitem to OLEexItemEditScrollBar
Set ComEditWidth of hoitem to -128
Set ComEditValue of hoitem to "25"
Send Destroy to hoitem
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
63
|
How can I assign a scrollbar field to the item (method 1)
// Occurs when the user alters the item's text box field.
Procedure OnComEditChange Variant llItm
Forward Send OnComEditChange llItm
Showln llItm
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Set ComToString to "ScrollBar[id=10][edittype=0x05][edit=25][editwidth=-128]"
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
62
|
Is it possible to change the tooltip beging shown when I change the slider/scroll/progress value
// Occurs when the user alters the item's text box field.
Procedure OnComEditChange Variant llItm
Forward Send OnComEditChange llItm
Showln llItm
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voitem
Get ComAdd of hoItems "Progress" Nothing Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComAllowEdit of hoitem to OLEexItemEditProgress
Set ComEditWidth of hoitem to -128
Set ComEditValue of hoitem to 25
Set ComEditOption of hoitem OLEexEditChangeToolTip to "`Current value is: ` + value"
Send Destroy to hoitem
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
61
|
How can I hide the tooltip beging shown when I change the slider/scroll/progress value
// Occurs when the user alters the item's text box field.
Procedure OnComEditChange Variant llItm
Forward Send OnComEditChange llItm
Showln llItm
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voitem
Get ComAdd of hoItems "Progress" Nothing Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComAllowEdit of hoitem to OLEexItemEditProgress
Set ComEditWidth of hoitem to -128
Set ComEditValue of hoitem to 25
Set ComEditOption of hoitem OLEexEditChangeToolTip to ""
Send Destroy to hoitem
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
60
|
How can I assign a progress field to the item (method 2)
// Occurs when the user alters the item's text box field.
Procedure OnComEditChange Variant llItm
Forward Send OnComEditChange llItm
Showln llItm
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voitem
Get ComAdd of hoItems "Progress" Nothing Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComAllowEdit of hoitem to OLEexItemEditProgress
Set ComEditWidth of hoitem to -128
Set ComEditValue of hoitem to 25
Send Destroy to hoitem
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
59
|
How can I assign a progress field to the item (method 1)
// Occurs when the user alters the item's text box field.
Procedure OnComEditChange Variant llItm
Forward Send OnComEditChange llItm
Showln llItm
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Set ComToString to "Progress[id=10][edittype=0x04][edit=25][editwidth=-128]"
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
58
|
How can I assign a slider field to the item (method 2)
// Occurs when the user alters the item's text box field.
Procedure OnComEditChange Variant llItm
Forward Send OnComEditChange llItm
Showln llItm
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voitem
Get ComAdd of hoItems "Slider" Nothing Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComAllowEdit of hoitem to OLEexItemEditSlider
Set ComEditWidth of hoitem to -128
Set ComEditValue of hoitem to 25
Send Destroy to hoitem
Variant voitem1
Get ComAdd of hoItems "Slider" Nothing Nothing to voitem1
Handle hoitem1
Get Create (RefClass(cComitem)) to hoitem1
Set pvComObject of hoitem1 to voitem1
Set ComAllowEdit of hoitem1 to OLEexItemEditSlider
Set ComEditBorder of hoitem1 to OLEexEditBorderNone
Set ComEditWidth of hoitem1 to -128
Set ComEditOption of hoitem1 OLEexEditMinValue to 50
Set ComEditOption of hoitem1 OLEexEditMaxValue to 450
Set ComEditOption of hoitem1 OLEexEditTickStyle to 2
Set ComEditOption of hoitem1 OLEexEditTickFrequency to 50
Set ComEditOption of hoitem1 OLEexEditTickLabel to "value = vmin ? '<br><font ;6><b>'+value : ( value = vmax ? '<br><font ;6><b>'+value : ( value = 200 ? '<br><font ;6><b><fgcolor FF0000>'+value : '' ) )"
Set ComEditValue of hoitem1 to 345
Send Destroy to hoitem1
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
57
|
How can I assign a slider field to the item (method 1)
// Occurs when the user alters the item's text box field.
Procedure OnComEditChange Variant llItm
Forward Send OnComEditChange llItm
Showln llItm
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Set ComToString to "Slider[id=10][edittype=0x03][edit=25][editwidth=-128],Slider[id=20][edittype=0x03][edit=345][border=0][min=50][max=450][tick=2][freq=50][ticklabel=value = vmin ? '<br><font ;6><b>'+value : ( value = vmax ? '<br><font ;6><b>'+value : ( value = 200 ? '<br><font ;6><b><fgcolor FF0000>'+value : '' ) )][editwidth=-128]"
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
56
|
How can I assign a mask (time) field to the item (method 2)
// Occurs when the user alters the item's text box field.
Procedure OnComEditChange Variant llItm
Forward Send OnComEditChange llItm
Showln llItm
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voitem
Get ComAdd of hoItems "Time" Nothing Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComAllowEdit of hoitem to OLEexItemEditMask
Set ComEditWidth of hoitem to -128
Set ComEditMask of hoitem to "99:00:00;;0;overtype,warning=Invalid character"
Set ComEditValue of hoitem to "123456"
Send Destroy to hoitem
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
55
|
How can I assign a mask (time) field to the item (method 1)
// Occurs when the user alters the item's text box field.
Procedure OnComEditChange Variant llItm
Forward Send OnComEditChange llItm
Showln llItm
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Set ComToString to "Time[id=10][edittype=0x02][edit=12:34:56][mask=99:00:00;;0;overtype,warning=Invalid character][editwidth=-128]"
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
54
|
How can I assign a mask (license key) field to the item (method 2)
// Occurs when the user alters the item's text box field.
Procedure OnComEditChange Variant llItm
Forward Send OnComEditChange llItm
Showln llItm
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voitem
Get ComAdd of hoItems "License Key" Nothing Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComAllowEdit of hoitem to OLEexItemEditMask
Set ComEditWidth of hoitem to -128
Set ComEditMask of hoitem to "AAAA-AAAA-AAAA-AAAA"
Set ComEditValue of hoitem to "1234"
Send Destroy to hoitem
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
53
|
How can I assign a mask (license key) field to the item (method 1)
// Occurs when the user alters the item's text box field.
Procedure OnComEditChange Variant llItm
Forward Send OnComEditChange llItm
Showln llItm
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Set ComToString to "License Key[id=10][edittype=0x02][edit=1234-____-____-____][mask=AAAA-AAAA-AAAA-AAAA][editwidth=-128]"
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
52
|
How can I assign a mask (IP address) field to the item (method 2)
// Occurs when the user alters the item's text box field.
Procedure OnComEditChange Variant llItm
Forward Send OnComEditChange llItm
Showln llItm
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voitem
Get ComAdd of hoItems "IP Address" Nothing Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComAllowEdit of hoitem to OLEexItemEditMask
Set ComEditWidth of hoitem to -128
Set ComEditMask of hoitem to "{0,255}.{0,255}.{0,255}.{0,255}"
Set ComEditValue of hoitem to "1.2.3.4"
Send Destroy to hoitem
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
51
|
How can I assign a mask (IP address) field to the item (method 1)
// Occurs when the user alters the item's text box field.
Procedure OnComEditChange Variant llItm
Forward Send OnComEditChange llItm
Showln llItm
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Set ComToString to "IP Address[id=10][edittype=0x02][edit=1.2.3.4][mask={0,255}.{0,255}.{0,255}.{0,255}][editwidth=-128]"
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
50
|
How can I assign a mask (phone) field to the item (method 2)
// Occurs when the user alters the item's text box field.
Procedure OnComEditChange Variant llItm
Forward Send OnComEditChange llItm
Showln llItm
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voitem
Get ComAdd of hoItems "Phone" Nothing Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComAllowEdit of hoitem to OLEexItemEditMask
Set ComEditWidth of hoitem to -128
Set ComEditMask of hoitem to "!(9999) 000 000;;;empty,select=4,overtype,beep"
Set ComEditValue of hoitem to "0771638317"
Send Destroy to hoitem
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
49
|
How can I assign a mask (phone) field to the item (method 1)
// Occurs when the user alters the item's text box field.
Procedure OnComEditChange Variant llItm
Forward Send OnComEditChange llItm
Showln llItm
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Set ComToString to "Phone[id=10][edittype=0x02][edit=(0771) 638 317][mask=!(9999) 000 000;;;empty,select=4,overtype,beep][editwidth=-128]"
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
48
|
How can I assign a mask (date) field to the item (method 2)
// Occurs when the user alters the item's text box field.
Procedure OnComEditChange Variant llItm
Forward Send OnComEditChange llItm
Showln llItm
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voitem
Get ComAdd of hoItems "" Nothing Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComAllowEdit of hoitem to OLEexItemEditMask
Set ComEditWidth of hoitem to -128
Set ComEditMask of hoitem to "`Date: `{1,12}/{1,31}/{1950,2050};;;select=1"
Set ComEditValue of hoitem to "2/15/2015"
Send Destroy to hoitem
Variant voitem1
Get ComAdd of hoItems "Date" Nothing Nothing to voitem1
Handle hoitem1
Get Create (RefClass(cComitem)) to hoitem1
Set pvComObject of hoitem1 to voitem1
Set ComAllowEdit of hoitem1 to OLEexItemEditMask
Set ComEditWidth of hoitem1 to -128
Set ComEditMask of hoitem1 to "!00/00/0000;;0;empty,validateas=1,invalid=Invalid date!,warning=Invalid character!,select=4,overtype"
Set ComEditValue of hoitem1 to "2/15/2015"
Send Destroy to hoitem1
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
47
|
How can I assign a mask (date) field to the item (method 1)
// Occurs when the user alters the item's text box field.
Procedure OnComEditChange Variant llItm
Forward Send OnComEditChange llItm
Showln llItm
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Set ComToString to "[id=10][edittype=0x02][edit=Date: 2/15/2015][mask=`Date: `{1,12}/{1,31}/{1950,2050};;;select=1][editwidth=-128],Date[id=20][edittype=0x02][edit=02/15/2015][mask=!00/00/0000;;0;empty,validateas=1,invalid=Invalid date!,warning=Invalid character!,select=4,overtype][editwidth=-128]"
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
46
|
How can I assign a mask (integer) field to the item (method 2)
// Occurs when the user alters the item's text box field.
Procedure OnComEditChange Variant llItm
Forward Send OnComEditChange llItm
Showln llItm
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voitem
Get ComAdd of hoItems "Integer" Nothing Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComAllowEdit of hoitem to OLEexItemEditMask
Set ComEditWidth of hoitem to -128
Set ComEditMask of hoitem to ";;;float,grouping=,digits=0"
Set ComEditValue of hoitem to 1000
Send Destroy to hoitem
Variant voitem1
Get ComAdd of hoItems "Integer-Grouping" Nothing Nothing to voitem1
Handle hoitem1
Get Create (RefClass(cComitem)) to hoitem1
Set pvComObject of hoitem1 to voitem1
Set ComAllowEdit of hoitem1 to OLEexItemEditMask
Set ComEditWidth of hoitem1 to -128
Set ComEditMask of hoitem1 to ";;;float,decimal=,digits=0,select=1"
Set ComEditValue of hoitem1 to 1000
Send Destroy to hoitem1
Variant voitem2
Get ComAdd of hoItems "Integer-In-Range" Nothing Nothing to voitem2
Handle hoitem2
Get Create (RefClass(cComitem)) to hoitem2
Set pvComObject of hoitem2 to voitem2
Set ComAllowEdit of hoitem2 to OLEexItemEditMask
Set ComEditWidth of hoitem2 to -128
Set ComEditMask of hoitem2 to "{0,2050}"
Set ComEditValue of hoitem2 to 1000
Send Destroy to hoitem2
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
45
|
How can I assign a mask (integer) field to the item (method 1)
// Occurs when the user alters the item's text box field.
Procedure OnComEditChange Variant llItm
Forward Send OnComEditChange llItm
Showln llItm
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Set ComToString to "Integer[id=10][edittype=0x02][edit=1000][mask=;;;float,grouping=,digits=0][editwidth=-128],Integer-Grouping[id=20][edittype=0x02][edit=1,000][mask=;;;float,decimal=,digits=0,select=1][editwidth=-128],Integer-In-Range[id=30][edittype=0x02][edit=1000][mask={0,2050}][editwidth=-128]"
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
44
|
How can I assign a mask field to the item (method 2)
// Occurs when the user alters the item's text box field.
Procedure OnComEditChange Variant llItm
Forward Send OnComEditChange llItm
Showln llItm
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voitem
Get ComAdd of hoItems "Mask" Nothing Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComAllowEdit of hoitem to OLEexItemEditMask
Set ComEditWidth of hoitem to -128
Set ComEditMask of hoitem to ";;;float,select=1"
Set ComEditValue of hoitem to 1000
Send Destroy to hoitem
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
43
|
How can I assign a mask field to the item (method 1)
// Occurs when the user alters the item's text box field.
Procedure OnComEditChange Variant llItm
Forward Send OnComEditChange llItm
Showln llItm
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Set ComToString to "Text-Box[id=10][edittype=0x02][edit=1,000][mask=;;;float,select=1][editwidth=-128]"
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
42
|
How can I assign an edit / text-box to the item (method 2)
// Occurs when the user alters the item's text box field.
Procedure OnComEditChange Variant llItm
Forward Send OnComEditChange llItm
Showln llItm
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voitem
Get ComAdd of hoItems "Mask" Nothing Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComAllowEdit of hoitem to OLEexItemEditText
Set ComEditValue of hoitem to "this is a text"
Set ComEditWidth of hoitem to -128
Send Destroy to hoitem
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
41
|
How can I assign an edit / text-box to the item (method 1)
// Occurs when the user alters the item's text box field.
Procedure OnComEditChange Variant llItm
Forward Send OnComEditChange llItm
Showln llItm
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Set ComToString to "Text-Box[edit=this is a text][editwidth=-128]"
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
40
|
How can I display a tab into the context menu (method 2)
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Set ComBackground OLEexMenuSelBorderColor to (RGB(240,240,240))
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComToString of hoItems to "[id=0][group=0x0103][itemspad=4,4,4,4]([id=-10][group=0x03](),[id=0][bg=RGB(240,240,240)][group=0x03][itemspad=4,4,4,4]([id=-100]))"
Variant voitem
Get Comitem of hoItems -10 to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Variant voItems1
Get ComItems of hoitem to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Variant voitem1
Get ComAdd of hoItems1 "" 0 0 to voitem1
Handle hoitem1
Get Create (RefClass(cComitem)) to hoitem1
Set pvComObject of hoitem1 to voitem1
Set ComPadding of hoitem1 to "8,0,0,0"
Send Destroy to hoitem1
Variant voitem2
Get ComAdd of hoItems1 "New Page" Nothing Nothing to voitem2
Handle hoitem2
Get Create (RefClass(cComitem)) to hoitem2
Set pvComObject of hoitem2 to voitem2
Set ComToString of hoitem2 to "[typ=2][chk=1][spchk=-1][show=1][grp=10][bghot=RGB(255,255,255)][bgsel=RGB(240,240,240)][bgselhot=RGB(240,240,240)][height=16][group=0x03][tab=-100][pad=2,0,2,0]([id=50][group=0x03]([]))"
Set ComCaption of hoitem2 to "Page<off -5><font ;5><b>1</b></font></off>"
Variant voItems2
Get ComItems of hoitem2 to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Variant voitem3
Get ComAdd of hoItems2 "add here fields for page 1" Nothing Nothing to voitem3
Handle hoitem3
Get Create (RefClass(cComitem)) to hoitem3
Set pvComObject of hoitem3 to voitem3
Set ComEnabled of hoitem3 to False
Send Destroy to hoitem3
Send Destroy to hoItems2
Send Destroy to hoitem2
Variant voitem4
Get ComAdd of hoItems1 "New Page" Nothing Nothing to voitem4
Handle hoitem4
Get Create (RefClass(cComitem)) to hoitem4
Set pvComObject of hoitem4 to voitem4
Set ComToString of hoitem4 to "[typ=2][chk=0][spchk=-1][show=1][grp=10][bghot=RGB(255,255,255)][bgsel=RGB(240,240,240)][bgselhot=RGB(240,240,240)][height=16][group=0x03][tab=-100][pad=2,0,2,0]([id=50][group=0x03]([]))"
Set ComCaption of hoitem4 to "Page<off -5><font ;5><b>2</b></font></off>"
Variant voItems3
Get ComItems of hoitem4 to voItems3
Handle hoItems3
Get Create (RefClass(cComItems)) to hoItems3
Set pvComObject of hoItems3 to voItems3
Variant voitem5
Get ComAdd of hoItems3 "add here fields for page 2" Nothing Nothing to voitem5
Handle hoitem5
Get Create (RefClass(cComitem)) to hoitem5
Set pvComObject of hoitem5 to voitem5
Set ComEnabled of hoitem5 to False
Send Destroy to hoitem5
Send Destroy to hoItems3
Send Destroy to hoitem4
Variant voitem6
Get ComAdd of hoItems1 "" 0 0 to voitem6
Handle hoitem6
Get Create (RefClass(cComitem)) to hoitem6
Set pvComObject of hoitem6 to voitem6
Set ComPadding of hoitem6 to "8,0,0,0"
Send Destroy to hoitem6
Send Destroy to hoItems1
Send Destroy to hoitem
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
39
|
How can I add check-buttons to items, without showing the check-box (method 2)
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voitem
Get ComAdd of hoItems "" 2 Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComGroupPopup of hoitem to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
Variant voItems1
Get ComItems of hoitem to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Variant voitem1
Get ComAdd of hoItems1 "Check 1" Nothing Nothing to voitem1
Handle hoitem1
Get Create (RefClass(cComitem)) to hoitem1
Set pvComObject of hoitem1 to voitem1
Set ComCheck of hoitem1 to True
Set ComChecked of hoitem1 to True
Set ComShowCheckedAsSelected of hoitem1 to OLEexDisplayItemHighlight
Send Destroy to hoitem1
Variant voitem2
Get ComAdd of hoItems1 "Check 2" Nothing Nothing to voitem2
Handle hoitem2
Get Create (RefClass(cComitem)) to hoitem2
Set pvComObject of hoitem2 to voitem2
Set ComCheck of hoitem2 to True
Set ComShowCheckedAsSelected of hoitem2 to OLEexDisplayItemHighlight
Send Destroy to hoitem2
Variant voitem3
Get ComAdd of hoItems1 "Check 3" Nothing Nothing to voitem3
Handle hoitem3
Get Create (RefClass(cComitem)) to hoitem3
Set pvComObject of hoitem3 to voitem3
Set ComCheck of hoitem3 to True
Set ComChecked of hoitem3 to True
Set ComShowCheckedAsSelected of hoitem3 to OLEexDisplayItemHighlight
Send Destroy to hoitem3
Send Destroy to hoItems1
Send Destroy to hoitem
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
38
|
How can I add check-buttons to items, without showing the check-box (method 1)
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Set ComToString to "[group=0x3](Check 1[chk=1][show=1],Check 2[chk=0][show=1],Check 3[chk=1][show=1])"
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
37
|
How can I add radio buttons to items, without showing the radio-buttons (method 2)
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voitem
Get ComAdd of hoItems "" 2 Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComGroupPopup of hoitem to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
Variant voItems1
Get ComItems of hoitem to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Variant voitem1
Get ComAdd of hoItems1 "Radio 1" 1000 to voitem1
Handle hoitem1
Get Create (RefClass(cComitem)) to hoitem1
Set pvComObject of hoitem1 to voitem1
Set ComShowCheckedAsSelected of hoitem1 to OLEexDisplayItemHighlight
Set ComRadio of hoitem1 to True
Set ComRadioGroup of hoitem1 to 100
Send Destroy to hoitem1
Variant voitem2
Get ComAdd of hoItems1 "Radio 2" 1001 to voitem2
Handle hoitem2
Get Create (RefClass(cComitem)) to hoitem2
Set pvComObject of hoitem2 to voitem2
Set ComShowCheckedAsSelected of hoitem2 to OLEexDisplayItemHighlight
Set ComRadio of hoitem2 to True
Set ComRadioGroup of hoitem2 to 100
Send Destroy to hoitem2
Variant voitem3
Get ComAdd of hoItems1 "Radio 2" 1003 to voitem3
Handle hoitem3
Get Create (RefClass(cComitem)) to hoitem3
Set pvComObject of hoitem3 to voitem3
Set ComShowCheckedAsSelected of hoitem3 to OLEexDisplayItemHighlight
Set ComRadio of hoitem3 to True
Set ComRadioGroup of hoitem3 to 100
Send Destroy to hoitem3
Variant voitem4
Get Comitem of hoItems1 1000 to voitem4
Handle hoitem4
Get Create (RefClass(cComitem)) to hoitem4
Set pvComObject of hoitem4 to voitem4
Set ComChecked of hoitem4 to True
Send Destroy to hoitem4
Send Destroy to hoItems1
Send Destroy to hoitem
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
36
|
How can I add radio buttons to items, without showing the radio-buttons (method 1)
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Set ComToString to "[group=0x3](Radio 1[rad=1][show=1][grp=100][id=1000],Radio 2[rad=0][show=1][grp=100][id=1001],Radio 2[rad=0][show=1][grp=100][id=1002])"
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
35
|
How can I add check-buttons to items (method 2)
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voitem
Get ComAdd of hoItems "" 2 Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComGroupPopup of hoitem to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
Variant voItems1
Get ComItems of hoitem to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Variant voitem1
Get ComAdd of hoItems1 "Check 1" Nothing Nothing to voitem1
Handle hoitem1
Get Create (RefClass(cComitem)) to hoitem1
Set pvComObject of hoitem1 to voitem1
Set ComCheck of hoitem1 to True
Set ComChecked of hoitem1 to True
Send Destroy to hoitem1
Variant voitem2
Get ComAdd of hoItems1 "Check 2" Nothing Nothing to voitem2
Handle hoitem2
Get Create (RefClass(cComitem)) to hoitem2
Set pvComObject of hoitem2 to voitem2
Set ComCheck of hoitem2 to True
Send Destroy to hoitem2
Send Destroy to hoItems1
Send Destroy to hoitem
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
34
|
How can I add check-buttons to items (method 1)
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Set ComToString to "[group=0x3](Check 1[chk=1],Check 2[chk=0])"
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
33
|
How can I add radio buttons to items (method 2)
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voitem
Get ComAdd of hoItems "" 2 Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComGroupPopup of hoitem to OLEexGroupPopup
Variant voItems1
Get ComItems of hoitem to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Variant voitem1
Get ComAdd of hoItems1 "Radio 1" 1000 to voitem1
Handle hoitem1
Get Create (RefClass(cComitem)) to hoitem1
Set pvComObject of hoitem1 to voitem1
Set ComRadio of hoitem1 to True
Set ComRadioGroup of hoitem1 to 100
Send Destroy to hoitem1
Variant voitem2
Get ComAdd of hoItems1 "Radio 2" 1001 to voitem2
Handle hoitem2
Get Create (RefClass(cComitem)) to hoitem2
Set pvComObject of hoitem2 to voitem2
Set ComRadio of hoitem2 to True
Set ComRadioGroup of hoitem2 to 100
Send Destroy to hoitem2
Variant voitem3
Get ComAdd of hoItems1 "Radio 2" 1003 to voitem3
Handle hoitem3
Get Create (RefClass(cComitem)) to hoitem3
Set pvComObject of hoitem3 to voitem3
Set ComRadio of hoitem3 to True
Set ComRadioGroup of hoitem3 to 100
Send Destroy to hoitem3
Variant voitem4
Get Comitem of hoItems1 1000 to voitem4
Handle hoitem4
Get Create (RefClass(cComitem)) to hoitem4
Set pvComObject of hoitem4 to voitem4
Set ComChecked of hoitem4 to True
Send Destroy to hoitem4
Send Destroy to hoItems1
Send Destroy to hoitem
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
32
|
How can I add radio buttons to items (method 1)
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Set ComToString to "[group=0x1](Radio 1[rad=1][grp=100][id=1000],Radio 2[rad=0][grp=100][id=1001],Radio 2[rad=0][grp=100][id=1002])"
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
31
|
How can I change the selection/highlighting color
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Set ComSelBackColor to (RGB(0,0,0))
Set ComBackground OLEexMenuSelBorderColor to (RGB(128,0,0))
Set ComBackground OLEexMenuHotForeColor to (RGB(255,255,255))
Set ComToString to "[group=3](Item 1[chk],Item 2[chk])"
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
30
|
How can I prevent showing/hide the border on the selected/highlighted item
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Set ComBackground OLEexMenuSelBorderColor to (ComSelBackColor(Self))
Set ComToString to "Item 1,Item 2"
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
29
|
How can I display a tab into the context menu (method 1)
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Set ComBackground OLEexMenuSelBorderColor to (RGB(240,240,240))
Set ComToString to "[id=10][group=0x0103][itemspad=4,4,4,4]([id=20][group=0x03]([id=30][pad=8,0,0,0],Page<off -5><font ;5><b>1</b></font></off>[id=40][typ=2][chk=1][spchk=-1][show=1][grp=10][bghot=RGB(255,255,255)][bgsel=RGB(240,240,240)][bgselhot=RGB(240,240,240)][height=16][group=0x03][tab=9000][pad=2,0,2,0]([id=50][group=0x03](add here fields for page 1[dis])),Page<off -5><font ;5><b>2</b></font></off>[id=120][typ=2][spchk=-1][show=1][grp=10][bghot=RGB(255,255,255)][bgsel=RGB(240,240,240)][bgselhot=RGB(240,240,240)][height=16][group=0x03][tab=9000][pad=2,0,2,0]([id=130][group=0x03](add here fields for page 2[dis])),[id=180][pad=8,0,0,0]),[id=190][bg=RGB(240,240,240)][group=0x03][itemspad=4,4,4,4]([id=9000]))"
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
28
|
How do I prevent highlighting the item (method 2.b)
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voitem
Get ComAdd of hoItems "No highlight" Nothing Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComEnabled of hoitem to False
Send Destroy to hoitem
Get ComAdd of hoItems "Item 2" Nothing Nothing to Nothing
Get ComAdd of hoItems "Item 3" Nothing Nothing to Nothing
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
27
|
How do I prevent highlighting the item (method 2.a)
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voitem
Get ComAdd of hoItems "No highlight" 2 Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Variant voItems1
Get ComItems of hoitem to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Get ComAdd of hoItems1 "" Nothing Nothing to Nothing
Send Destroy to hoItems1
Set ComGroupPopup of hoitem to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
Send Destroy to hoitem
Get ComAdd of hoItems "Item 2" Nothing Nothing to Nothing
Get ComAdd of hoItems "Item 3" Nothing Nothing to Nothing
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
26
|
How do I prevent highlighting the item (method 1.b)
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComToString of hoItems to "No highlight[dis],Item 2,Item 3"
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
25
|
How do I prevent highlighting the item (method 1.a)
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComToString of hoItems to "No highlight[group=0x3][arrow=0]([]),Item 2,Item 3"
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
24
|
How can I can I assign pictures or images for the item (method 2)
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Set ComHTMLPicture "pic1" to "c:\exontrol\images\zipdisk.gif"
Set ComHTMLPicture "pic2" to "c:\exontrol\images\auction.gif"
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voitem
Get ComAdd of hoItems "Item" Nothing Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComHTMLImage of hoitem to "pic1"
Send Destroy to hoitem
Variant voitem1
Get ComAdd of hoItems "Item" Nothing Nothing to voitem1
Handle hoitem1
Get Create (RefClass(cComitem)) to hoitem1
Set pvComObject of hoitem1 to voitem1
Set ComHTMLImage of hoitem1 to "pic2"
Send Destroy to hoitem1
Get ComAdd of hoItems "" 1 Nothing to Nothing
Get ComAdd of hoItems "Item <img>pic1</img>" Nothing Nothing to Nothing
Get ComAdd of hoItems "Item <img>pic2</img>" Nothing Nothing to Nothing
Get ComAdd of hoItems "" 1 Nothing to Nothing
Get ComAdd of hoItems "<img>pic1</img> Item <img>pic2</img>" Nothing Nothing to Nothing
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
23
|
How can I can I assign pictures or images for the item (method 1)
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Set ComHTMLPicture "pic1" to "c:\exontrol\images\zipdisk.gif"
Set ComHTMLPicture "pic2" to "c:\exontrol\images\auction.gif"
Set ComToString to "Item[himg=pic1],Item[himg=pic2],[sep],Item <img>pic1</img>,Item <img>pic2</img>,[sep],<img>pic1</img> Item <img>pic2</img>"
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
22
|
How can I can I assign icons for the item (method 2)
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voitem
Get ComAdd of hoItems "Item" Nothing Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComImage of hoitem to 1
Send Destroy to hoitem
Variant voitem1
Get ComAdd of hoItems "Item" Nothing Nothing to voitem1
Handle hoitem1
Get Create (RefClass(cComitem)) to hoitem1
Set pvComObject of hoitem1 to voitem1
Set ComImage of hoitem1 to 2
Send Destroy to hoitem1
Get ComAdd of hoItems "" 1 Nothing to Nothing
Get ComAdd of hoItems "Item <img>1</img>" Nothing Nothing to Nothing
Get ComAdd of hoItems "Item <img>2</img>" Nothing Nothing to Nothing
Get ComAdd of hoItems "" 1 Nothing to Nothing
Variant voitem2
Get ComAdd of hoItems "Item <img>1</img>" Nothing Nothing to voitem2
Handle hoitem2
Get Create (RefClass(cComitem)) to hoitem2
Set pvComObject of hoitem2 to voitem2
Set ComImage of hoitem2 to 1
Send Destroy to hoitem2
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
21
|
How can I can I assign icons for the item (method 1)
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComToString of hoItems to "Item[img=1],Item[img=2],[sep],Item <img>1</img>,Item <img>2</img>,[sep],Item <img>1</img>[img=1]"
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
20
|
How can I change the visual appearance / background color (EBN) for a collection of items/group (method 2)
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComPadding of hoItems to "2,2,2,2"
Set ComBackColor of hoItems to |CI$1000000
Get ComAdd of hoItems "Item 1" Nothing Nothing to Nothing
Get ComAdd of hoItems "Item 2" Nothing Nothing to Nothing
Get ComAdd of hoItems "Item 3" Nothing Nothing to Nothing
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
19
|
How can I change the visual appearance / background color (EBN) for a collection of items/group (method 1)
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComToString of hoItems to "[itemsbg=0x1000000][itemspad=2,2,2,2][group=0x103](Item 1,Item 2,Item 3)"
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
18
|
How can I change the background color for a collection of items/group (method 2)
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComPadding of hoItems to "2,2,2,2"
Set ComBackColor of hoItems to (RGB(255,0,0))
Get ComAdd of hoItems "Item 1" Nothing Nothing to Nothing
Get ComAdd of hoItems "Item 2" Nothing Nothing to Nothing
Get ComAdd of hoItems "Item 3" Nothing Nothing to Nothing
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
17
|
How can I change the background color for a collection of items/group (method 1)
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComToString of hoItems to "[itemsbg=RGB(255,0,0)][itemspad=2,2,2,2][group=0x103](Item 1,Item 2,Item 3)"
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
16
|
How can I change the visual appearance / background color (EBN) for a specified item (method 2)
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAdd of hoItems "Item 1" Nothing Nothing to Nothing
Variant voitem
Get ComAdd of hoItems "Item 2" Nothing Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComBackColor of hoitem to |CI$1000000
Send Destroy to hoitem
Get ComAdd of hoItems "Item 3" Nothing Nothing to Nothing
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
15
|
How can I change the visual appearance / background color (EBN) for a specified item (method 1)
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComToString of hoItems to "Item 1,Item 2[bg=0x1000000],Item 3"
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
14
|
How can I change the background color for a specified item (method 2)
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAdd of hoItems "Item 1" Nothing Nothing to Nothing
Variant voitem
Get ComAdd of hoItems "Item 2" Nothing Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComBackColor of hoitem to (RGB(255,0,0))
Send Destroy to hoitem
Get ComAdd of hoItems "Item 3" Nothing Nothing to Nothing
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
13
|
How can I change the background color for a specified item (method 1)
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComToString of hoItems to "Item 1,Item 2[bg=RGB(255,0,0)],Item 3"
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
12
|
How do I add a popup or a sub-menu so it show when cursor hovers it (method 2)
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voitem
Get ComAdd of hoItems "Popup" 2 Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Variant voItems1
Get ComItems of hoitem to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Get ComAdd of hoItems1 "Item 1" Nothing Nothing to Nothing
Get ComAdd of hoItems1 "Item 2" Nothing Nothing to Nothing
Get ComAdd of hoItems1 "Item 3" Nothing Nothing to Nothing
Send Destroy to hoItems1
Send Destroy to hoitem
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
11
|
How do I add a popup or a sub-menu so it show when cursor hovers it (method 1)
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComToString of hoItems to "Popup(Item 1,Item 2,Item 3)"
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
10
|
How can I arrange the items by grouping (method 2)
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voitem
Get ComAdd of hoItems "" 2 Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Set ComGroupPopup of hoitem to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
Variant voItems1
Get ComItems of hoitem to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Variant voitem1
Get ComAdd of hoItems1 "Horizontal" 2 Nothing to voitem1
Handle hoitem1
Get Create (RefClass(cComitem)) to hoitem1
Set pvComObject of hoitem1 to voitem1
Set ComGroupPopup of hoitem1 to OLEexGroupPopup
Variant voItems2
Get ComItems of hoitem1 to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Get ComAdd of hoItems2 "Sub-Item <b>A</b>" Nothing Nothing to Nothing
Get ComAdd of hoItems2 "Sub-Item <b>B</b>" Nothing Nothing to Nothing
Get ComAdd of hoItems2 "Sub-Item <b>C</b>" Nothing Nothing to Nothing
Send Destroy to hoItems2
Send Destroy to hoitem1
Variant voitem2
Get ComAdd of hoItems1 "" Nothing Nothing to voitem2
Handle hoitem2
Get Create (RefClass(cComitem)) to hoitem2
Set pvComObject of hoitem2 to voitem2
Set ComCaptionWidth of hoitem2 to 16
Send Destroy to hoitem2
Variant voitem3
Get ComAdd of hoItems1 "Vertical" 2 Nothing to voitem3
Handle hoitem3
Get Create (RefClass(cComitem)) to hoitem3
Set pvComObject of hoitem3 to voitem3
Set ComAlignment of hoitem3 to OLEexCenter
Set ComGroupPopup of hoitem3 to (OLEexGroupPopupVertical + OLEexGroupPopup)
Variant voItems3
Get ComItems of hoitem3 to voItems3
Handle hoItems3
Get Create (RefClass(cComItems)) to hoItems3
Set pvComObject of hoItems3 to voItems3
Get ComAdd of hoItems3 "Sub-Item <b>A</b>" Nothing Nothing to Nothing
Get ComAdd of hoItems3 "Sub-Item <b>B</b>" Nothing Nothing to Nothing
Get ComAdd of hoItems3 "Sub-Item <b>C</b>" Nothing Nothing to Nothing
Send Destroy to hoItems3
Send Destroy to hoitem3
Variant voitem4
Get ComAdd of hoItems1 "" Nothing Nothing to voitem4
Handle hoitem4
Get Create (RefClass(cComitem)) to hoitem4
Set pvComObject of hoitem4 to voitem4
Set ComCaptionWidth of hoitem4 to 16
Send Destroy to hoitem4
Variant voitem5
Get ComAdd of hoItems1 "Popup" 2 Nothing to voitem5
Handle hoitem5
Get Create (RefClass(cComitem)) to hoitem5
Set pvComObject of hoitem5 to voitem5
Variant voItems4
Get ComItems of hoitem5 to voItems4
Handle hoItems4
Get Create (RefClass(cComItems)) to hoItems4
Set pvComObject of hoItems4 to voItems4
Get ComAdd of hoItems4 "Sub-Item <b>A</b>" Nothing Nothing to Nothing
Get ComAdd of hoItems4 "Sub-Item <b>B</b>" Nothing Nothing to Nothing
Get ComAdd of hoItems4 "Sub-Item <b>C</b>" Nothing Nothing to Nothing
Send Destroy to hoItems4
Send Destroy to hoitem5
Send Destroy to hoItems1
Send Destroy to hoitem
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
9
|
How can I arrange the items by grouping (method 1)
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComToString of hoItems to "[group=0x03](Horizontal[group=0x01](Sub-Item <b>A</b>,Sub-Item <b>B</b>,Sub-Item <b>C</b>),[captionwidth=16],Vertical[group=0x0101][align=1](Sub-Item <b>A</b>,Sub-Item <b>B</b>,Sub-Item <b>C</b>),[captionwidth=16],Popup(Sub-Item <b>A</b>,Sub-Item <b>B</b>,Sub-Item <b>C</b>),[captionwidth=160])"
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
8
|
How can I arrange some items vertically, and some horizontally (method 2)
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voitem
Get ComAdd of hoItems "" 2 Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Variant voItems1
Get ComItems of hoitem to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Get ComAdd of hoItems1 "1" Nothing Nothing to Nothing
Get ComAdd of hoItems1 "2" Nothing Nothing to Nothing
Get ComAdd of hoItems1 "3" Nothing Nothing to Nothing
Send Destroy to hoItems1
Set ComGroupPopup of hoitem to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
Send Destroy to hoitem
Variant voitem1
Get ComAdd of hoItems "" 2 Nothing to voitem1
Handle hoitem1
Get Create (RefClass(cComitem)) to hoitem1
Set pvComObject of hoitem1 to voitem1
Variant voItems2
Get ComItems of hoitem1 to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Get ComAdd of hoItems2 "4" Nothing Nothing to Nothing
Get ComAdd of hoItems2 "5" Nothing Nothing to Nothing
Get ComAdd of hoItems2 "6" Nothing Nothing to Nothing
Send Destroy to hoItems2
Set ComGroupPopup of hoitem1 to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
Send Destroy to hoitem1
Variant voitem2
Get ComAdd of hoItems "" 2 Nothing to voitem2
Handle hoitem2
Get Create (RefClass(cComitem)) to hoitem2
Set pvComObject of hoitem2 to voitem2
Variant voItems3
Get ComItems of hoitem2 to voItems3
Handle hoItems3
Get Create (RefClass(cComItems)) to hoItems3
Set pvComObject of hoItems3 to voItems3
Get ComAdd of hoItems3 "7" Nothing Nothing to Nothing
Get ComAdd of hoItems3 "8" Nothing Nothing to Nothing
Get ComAdd of hoItems3 "9" Nothing Nothing to Nothing
Send Destroy to hoItems3
Set ComGroupPopup of hoitem2 to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
Send Destroy to hoitem2
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
7
|
How can I arrange some items vertically, and some horizontally (method 1)
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComToString of hoItems to "[group=3](1,2,3),[group=3](4,5,6),[group=3](7,8,9)"
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
6
|
How can I assign multiple-lines to an item (method 2)
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voitem
Get ComAdd of hoItems "" 2 Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Variant voItems1
Get ComItems of hoitem to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Variant voitem1
Get ComAdd of hoItems1 "Item 1" Nothing Nothing to voitem1
Handle hoitem1
Get Create (RefClass(cComitem)) to hoitem1
Set pvComObject of hoitem1 to voitem1
Set ComCaption of hoitem1 to "Item <br><c><b>1"
Send Destroy to hoitem1
Variant voitem2
Get ComAdd of hoItems1 "Item 2" Nothing Nothing to voitem2
Handle hoitem2
Get Create (RefClass(cComitem)) to hoitem2
Set pvComObject of hoitem2 to voitem2
Set ComCaption of hoitem2 to "Item <br><c><b>2"
Send Destroy to hoitem2
Variant voitem3
Get ComAdd of hoItems1 "Item 3" Nothing Nothing to voitem3
Handle hoitem3
Get Create (RefClass(cComitem)) to hoitem3
Set pvComObject of hoitem3 to voitem3
Set ComCaption of hoitem3 to "Item <br><c><b>3"
Send Destroy to hoitem3
Send Destroy to hoItems1
Set ComGroupPopup of hoitem to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
Send Destroy to hoitem
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
5
|
How can I assign multiple-lines to an item (method 1)
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComToString of hoItems to "[group=3](Item <br><c><b>1,Item <br><c><b>2,Item <br><c><b>3)"
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
4
|
How can I add new items arranged horizontally to the context menu (method 2)
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voitem
Get ComAdd of hoItems "" 2 Nothing to voitem
Handle hoitem
Get Create (RefClass(cComitem)) to hoitem
Set pvComObject of hoitem to voitem
Variant voItems1
Get ComItems of hoitem to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Get ComAdd of hoItems1 "Item 1" Nothing Nothing to Nothing
Get ComAdd of hoItems1 "Item 2" Nothing Nothing to Nothing
Get ComAdd of hoItems1 "Item 3" Nothing Nothing to Nothing
Send Destroy to hoItems1
Set ComGroupPopup of hoitem to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
Send Destroy to hoitem
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
3
|
How can I add new items arranged horizontally to the context menu (method 1)
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComToString of hoItems to "[group=3](Item 1,Item 2,Item 3)"
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
2
|
How can I add new items to the context menu (method 2)
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAdd of hoItems "Item 1" Nothing Nothing to Nothing
Get ComAdd of hoItems "Item 2" Nothing Nothing to Nothing
Get ComAdd of hoItems "Item 3" Nothing Nothing to Nothing
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|
|
1
|
How can I add new items to the context menu (method 1)
Procedure OnCreate
Forward Send OnCreate
Variant oComExContextMenu1
Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComToString of hoItems to "Item 1,Item 2,Item 3"
Send Destroy to hoItems
Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
|